home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / exploram.sha < prev    next >
Text File  |  1994-03-01  |  1KB  |  18 lines
  1. 10 VAC:CLS:PRINT TAB(2)"***PROGRAMME D'EXPLORATION***";:LOCATE7,1:PRINT "DE LA MEMOIRE V1.1"
  2. 20 INPUT "EN (D)IRECT OU EN (S)EQUENCES ";H$:IF H$="D" THEN 200 ELSE IF H$<>"S";GOTO 5
  3. 30 INPUT "LA RECHERCHE DEBUTE A L'ADRESSE ",ADR:INPUT "QUEL SEGMENT ";RTC:DEFSEG=RTC
  4. 40 A=PEEK(ADR)
  5. 50 CLS:PRINT "SEG["RTC"] ADR["ADR"]";:LOCATE 22,0:PRINT "HEXA["HEX$(ADR)"]";
  6. 60 LOCATE0,1:PRINT "CONTENU["CHR$(A)"] ASCII["A"]";
  7. 70 A=0:INPUT ">",A:Z=-3:IF A=PI;GOTO 100 ELSE IF A=Z THEN ADR=ADR-1:GOTO 15
  8. 80 IF A=0;ADR=ADR+1:GOTO 15 ELSE 55
  9. 90 IF A=-PI THEN 10
  10. 100 ADR=A:GOTO 40
  11. 110 CLS:INPUT "MODIFICATION A L'ADRESSE NUMERO ",ADR
  12. 120 X=PEEKADR:PRINT "QUEL NOMBRE FAUT-IL METTRE A LA PLACE DE "X"(";:PRINT CHR$(X)")";:INPUT "";Z:POKE ADR,Z:GOTO 15
  13. 130 CLS:INPUT "DE L'ADRESSE ",AA," A L'ADRESSE ",AB," NUMERO DU SEGMENT ",QW:DEFSEG=QW:IF AA=-PI;GOTO 7 ELSE IF AA=PI THEN 230
  14. 140 CLS:FOR I=AA TO AB:PRINT CHR$(PEEKI);:NEXT
  15. 150 STOP:GOTO 130
  16. 160 CLS:INPUT "A PARTIR DE QUELLE ADRESSE VA-T-ON POKER ";PO,"QUE VAIS-JE METTRE ";PO$,"A QUEL SEGMENT ";SE:DEFSEG=SE
  17. 170 W=LEN(PO$):FOR I=PO TO PO+W:Y=Y+1:L$=MID$(PO$,Y,1):L=ASC(L$):POKE I,L:NEXT:GOTO 130
  18.